stPeamio.mESA 24-0CT-77 18:57:26 Pago 1 



-- StreamlO.Mesa Edited by Sandman on July 22, 1977 11:07 AM 

DIRECTORY 

lODefs: FROM "iodefs", 
InlineDefs: FROM "in! inedef s" , 
StreamOefs: FROM "streamdefs" , 
StringDefs: FROM "stringdef s" ; 

DEFINITIONS FROM StreamDefs, lODefs; 

StreamlO: PROGRAM [Input, Output: StreamHandle] 

IMPORTS StreamOefs, StringDefs EXPORTS lODefs SHARES lODefs, StreamDefs = PUBLIC 

BEGIN 

BeginLine: PRIVATE BOOLEAN *- TRUE; 

GetlnputStream: PROCEDURE RETURNS [StreamHandle] » 
BEGIN 

RETURN[Input] 
END; 

GetOutputStream: PROCEDURE RETURNS [StreamHandle] = 
BEGIN 

RETURN[Output] 
END; 

-- Character operations 

ReadChar: PROCEDURE RETURNS [CHARACTER] * 
BEGIN 

RETURN[ Input. get[ Input]]; 
END; 

WriteChar: PROCEDURE [c : CHARACTER] * 
BEGIN 

Output. put[Output, c]; 
BeginLine ♦- c = CR; 
END; 

-- Reading Strings 

ReadString: PROCEDURE [srSTRING. t : PROCEDURE[CHARACTER]RETURNS[BOOLEAN]] = 
BEGIN 

WriteChar[ReadEditedString[s.t.TRUE]]; 
END; 

ReadID: PROCEDURE [s:STRING] = 
BEGIN 

[] *- ReadEditedString[s,atomfound,TRUE]; 
END; 

ReadLine: PROCEDURE [s:STRING] = 
BEGIN 

[] ^ ReadEditedString[s,crfound,TRUE]; 
WriteChar[CR]; 
END; 

crfound: PRIVATE PROCEDURE [c : CHARACTER] RETURNS [BOOLEAN] = 
BEGIN RETURN [c = CR] END; 

atomfound; PRIVATE PROCEDURE [c : CHARACTER] RETURNS [BOOLEAN] = 
BEGIN RETURN [c = CR OR c = SP] END; 

Rubout: SIGNAL == CODE; 

LineOverflow: SIGNAl [s: STRING] RETURNS [ns: STRING] = CODE; 

-- the editing characters 
c n t r 1 A 
c fit r 1 H 
controlW 

conlrolQ 
c (U r o 1 X 



CMARACTER = IC; -- delete character 



CHARAcrrR = toe 

CHARACTER = 27C 
CHARACTER = 2 1C 
CHARACTER = 30C 



-- delete character 

•- delete word 

-- delete word 

-- delete 1 ine 
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controIR: CHARACTER = 22C; -- retype line 
controlV: CHARACTER = 26C; -- quote next character 
ESC: CHARACTER = 33C; -- use old string 

ReadEditedString: PROCEDURE [s:STRING, t:PROCEDURE [CHARACTER] RETURNS [BOOLEAN], newstring:BOOLEAN] RE 
**TURNS[CHARACTER] = 
BEGIN 

c: CHARACTER; 
i: CARDINAL; 

state: {Trail inglnvisible, Visible, Leadinglnvisible}; 
c *- Input. get[Input] ; 
IF newstring THEN 
IF c » ESC THEN 

BEGIN WriteString[s]; c *- Input . get[Input] ; END 
ELSE s. length ^ 0; 
UNTIL t[c] DO SELECT C FROM 
DEL => SIGNAL Rubout; 
controlA, controlH »> 
BEGIN 

IF s. length > THEN 
BEGIN 
WITH Output SELECT FROM 

Display => ClearDi splayChar[Output , s[s . length-1]] ; 
ENDCASE => Output. put[Output.c]; 
s. length *■ s . length-1; 
END; 
END; 
controlW, controlQ => 

BEGIN -- text to be backed up is of the form 
— . . .<LeadingInvisible><\/isible><Trai 1 inglnvisible> 
-- the <Visible> and <Trail inglnvisible> are to be removed, 
state ♦- Trail inglnvi sible; 
FOR i DECREASING IN [0 . . s . 1 ength ) DO 
SELECT s[i] FROM 

IN [•A..'Z]. IN ['a..'z], IN ['O.-'g] => 

IF state = Trai 1 inglnvisible THEN state ♦- Visible; 
ENDCASE => 

IF state = Visible THEN state ♦- Leadinglnvisible; 
IF state = Leadinglnvisible THEN GO TO Done; 
WITH Output SELECT FROM 

Display => ClearDisplayChar[Output , s[i ]] ; 
ENDCASE => Output. put[Output.c]; 
REPEAT 

Done => s. length ♦- i+1; 
FINISHED => s. length ♦• 0; 
ENDLOOP; 
END; 
controlR => 
BEGIN 

WriteChar[CR]; 
WriteString[s] ; 
END; 
controlX => 
BEGIN 
WITH Output SELECT FROM 

Display => CI earCurren tLine[Outpu t] ; 
ENDCASE => Output. put[Output,c]; 
s . length ♦• 0; 
END; 
controlV => 
BEGIN 

WHILE s. length >= s.maxlength DO 
s ^ SIGNAL L ineOvernow[s]; 
ENDLOOP; 
s[s. length] ♦- c ♦- Input . get[Input] ; 
s . length +- s . length + 1 ; 
Wr i teChar[c]; 
END; 
rNDCASE => 
BEGIN 

WHILE s. length >= s.maxlength DO 
s ♦- SIGNAI I ineOverriow[s]; 
ENDl OOP; 
s[s . 1 ength] *- c ; 
s. length *- s.lefiglh + l; 
Wr i teChar[c] ; 
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END; 

c <- Input. get[Input]; 

ENDLOOP; 
RETURN[c]; 
END; 



-- Writing Strings 

WriteString: PROCEDURE [s:STRING] = 
BEGIN 

i:CARDINAL; 
FOR i IN [0. .s. length) DO 

Output .put [Out put, s[i]] : 

ENDLOOP; 
IF s. length # THEN BeginLine ♦• s[s. length-1] - CR; 
END; 

WriteLine: PROCEDURE [s:STRING] = 
BEGIN 

WriteStr ing[s] ; 
WriteChar[CR]; 
END; 

NewLine: PROCEDURE RETURNS[BOOLEAN] = 
BEGIN RETURN[BeginLine] END; 
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-- Numerical 1/o 

Maxinteger: INTEGER = 32767; -- maximum positive 16-bit integer 
MaxDigits: PRIVATE INTEGER = 5; — ceiling[loglO[MaxInteger]] 
Digitlndex: PRIVATE TYPE = [0 . . MaxDigits); 

ReadNumber: PROCEDURE [default: UNSPECIFIED, radix: CARDINAL] 
RETURNS [UNSPECIFIED] » 
BEGIN OPEN InlineDefs; 
CharZero: CARDINAL = LOOPHOLE[ '0]; 
s: STRING ^ [10]; 
c: ARRAY [0. .6) OF [0. .9]; 
cp, i: CARDINAL ♦■ 0; 
IF radix = 10 AND default < THEN 

BEGIN default ♦• -default; s[0] ♦- '-; cp ^ 1 END; 
DO 

[default. c[i]] ♦- LDIVMOD[def ault.O . radix]; 

IF default = THEN EXIT; 

i ♦• i + 1; 

ENDLOOP; 
FOR i DECREASING IN [0. .i] DO 

s[cp] ^ LOOPHOLE[c[i] + CharZero .CHARACTER] ; 

cp ♦- cp + 1; 
ENDLOOP; 
IF radix = 8 THEN 

BEGIN s[cp] ^ 'B; cp ♦- cp + 1 END; 
s. length ♦• cp; 

[] ♦- ReadEditedString[s, atomfound, TRUE]; 
RETURN[StringDefs. St ringToNumber[s, radix]]; 
END; 

ReadDecimal: PROCEDURE RETURNS [INTEGER] = 

BEGIN -- reads a decimal number in [-Maxinteger . . Maxinteger] 

s: STRING ♦- [MaxDig i ts + 1] ; 

[] <- ReadEditedString[s, atomfound, TRUE]; 

RETURN [StringDefs.StringToDecimal[s]] 

END; 

ReadOctal: PROCEDURE RETURNS [UNSPECIFIED]^ 

BEGIN -- reads an octal number in [0 . . 177777B] 

s: STRING ^ [7]; 

[] ♦• ReadEditedString[s. atomfound, TRUE]; 

RETURN [StringDefs.StringToOctal[s]] 

END; 

OutNumber: PROCEDURE 

[stream: StreamHandle, val : INTEGER, format: NumberFormat] = 

BEGIN 

n, b. rd, t: INTEGER; 

fill : CHARACTER; 

neg: BOOLEAN; 

xn: PROCEDURE = 

BEGIN OPEN In! ineOefs; 
CharZero: CARDINAL = LOOPHOLE[ '0] ; 
CharTen: CARDINAL = L0OPH0LE['A, CARDINAL] - 10; 
r: INTEGER; 
IF n=0 THEN 
BEGIN 

THROUGH (t..rd] DO stream . pu t[stream. f i 1 1 ] ENDLOOP; 
IF neg THEN s tream. put[s tream, ' -] ; 
END 
ELSE 
BEGIN 

[n.r] ♦- LDIVMOD[n,0.b]; 
t<-t+l; 
xn[]; 

stream. put[sLream, r + (IF r>9 THEN CharTen FLSE CharZero)]; 
TNO; 
END; 

BEGIN OPEN Format; 

t^O; neg^-FALSE; 

f il1-(IF zerof ill THEN '0 ELSE ' ); 
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IF vaKO AND -unsigned THEN 
BEGIN 
val*-- val ; 
t^l: 

neg*-TRUE; 
END; 

b*-bas8; 

rd^columns; 

IF neg AND zerofill THEN BEGIN stream. putCstream, ' -]; neg+-FALSE END; 

IF (n*-va1) = THEN t*-t+l; -- is a special case 

xn[]: 

IF val = THEN stream. put[stream, '0] ; 

IF stream = Output THEN BeginLine *- FALSE; 

END; -- of OPEN block 

END; 

WriteNumber: PROCEDURE [v: UNSPECIFIED, f: NumberFormat] = 
BEGIN 

OutNumber[Output, V, f ]; 
END; 

WriteDecimal : PROCEDURE [n: INTEGER] = 
BEGIN 

WriteNumber[n, Number Forma t[ 10, FALSE, FALSE, 0]] 
END; 

WriteOctal: PROCEDURE [n: UNSPECIFIED] = 
BEGIN 

WriteNumber[n,NumberFormat[8, FALSE, TRUE, 0]]; 
IF n -.IN[0..7] THEN Wri teChar[ 'B] 
END; 

-- the main body 

IF Input ^ NIL THEN Input «- StreamDef s . GetOef auUKey[] ; 

IF Output = NIL THEN Output ♦- StreamDef s .GetDef aul tDispl ayStream[] ; 

END. 



